home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aay.d64 / sliding tiles (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  147 lines
  1. 10 REM     PROGRAM: SLIDING TILES
  2. 20 REM
  3. 30 REM     AUTHOR:  PAUL W. CARLSON
  4. 40 REM              P.O. BOX 245
  5. 50 REM              WILLISTON, VT  05495
  6. 60 REM
  7. 70 REM
  8. 80 PRINT"[147]";
  9. 90 PRINT"        LOADING MACHINE CODE..."
  10. 100 FORN=49203TO49986:READK:POKEN,K:NEXT
  11. 110 P$="":FORN=49152TO49187:POKEN,1:NEXT
  12. 120 POKE53280,1:POKE53281,1:A$="  ":PRINT"[147]"
  13. 130 SYS49335:GOSUB500:M=0
  14. 140 PRINTP$;"      PRESS ANY KEY TO START GAME";
  15. 150 SYS49364:GETV$:IFV$=""THEN150
  16. 160 SYS49335:GOSUB500:PRINTP$;"          MIXING UP THE BOARD...  ";
  17. 170 R=INT(RND(0)*100)+155:POKE49201,R:SYS49408
  18. 180 PRINTP$;"               MOVES: 0               ";
  19. 190 GETI$:IFI$=""THEN190
  20. 200 I=ASC(I$):IFI<65ORI>79THEN190
  21. 210 POKE49200,I:SYS49427:IFPEEK(49193)=1THEN190
  22. 220 M=M+1:PRINTP$;"";M:IFPEEK(49198)=2THEN190
  23. 230 PRINTP$;"          PLAY AGAIN? (Y OR N)"
  24. 240 GETV$:IFV$=""THEN240
  25. 250 IFV$="N"THENPOKE53280,14:POKE53281,6:PRINT"[147][154]":END
  26. 260 IFV$="Y"THENPRINT"[147]";:GOTO130
  27. 270 GOTO240
  28. 500 PRINT"";A$;"[207][183][183][183][183][183][208][207][183][183][183][183][183][208][158][207][183][183][183][183][183][208][207][183][183][183][183][183][208]"
  29. 510 PRINTA$;"[180] [146][188] [146][190] [170][180]  [146][187][190] [170][158][180] [146][191][162][191] [170][180] [161]   [170]"
  30. 520 PRINTA$;"[180] [161][146][162][161] [170][180]  [146][161]  [170][158][180] [161]   [170][180] [161]   [170]"
  31. 530 PRINTA$;"[180] [161] [146][161] [170][180]  [146][190][187] [170][158][180] [191][162][146][191] [170][180] [146][188][162][162] [170]"
  32. 540 PRINTA$;"[204][175][175][175][175][175][186][204][175][175][175][175][175][186][158][204][175][175][175][175][175][186][204][175][175][175][175][175][186]"
  33. 550 PRINTA$;"[207][183][183][183][183][183][208][144]       [207][183][183][183][183][183][208][207][183][183][183][183][183][208]"
  34. 560 PRINTA$;"[180] [146][172][162][162] [170][144]       [180]   [146][161] [170][180] [146][172][162][162] [170]"
  35. 570 PRINTA$;"[180] [146][172][162]  [170][144]       [180] [187] [146][161] [170][180] [146][172][162]  [170]"
  36. 580 PRINTA$;"[180] [146][188][162][162] [170][144]       [180] [191][162][146][191] [170][180] [161]   [170]"
  37. 590 PRINTA$;"[204][175][175][175][175][175][186][144]       [204][175][175][175][175][175][186][204][175][175][175][175][175][186]"
  38. 600 PRINTA$;"[158][207][183][183][183][183][183][208][207][183][183][183][183][183][208][158][207][183][183][183][183][183][208][158][207][183][183][183][183][183][208]"
  39. 610 PRINTA$;"[158][180] [161][172][190] [170][180] [161] [146][161] [170][158][180] [146][191][162][191] [170][158][180] [146][191][162][191] [170]"
  40. 620 PRINTA$;"[158][180] [146][172][191]  [170][180] [146][172][162][187] [170][158][180] [161] [146][161] [170][158][180] [161][172][162] [170][146]    [144]YOUR"
  41. 630 PRINTA$;"[158][180] [161] [191] [170][180] [161] [146][161] [170][158][180] [191][162][146][191] [170][158][180] [191][162][146][191] [170][146]    [144]GOAL"
  42. 640 PRINTA$;"[158][204][175][175][175][175][175][186][204][175][175][175][175][175][186][158][204][175][175][175][175][175][186][158][204][175][175][175][175][175][186][146]   [144][176][195][195][195][195][174]"
  43. 650 PRINTA$;"[207][183][183][183][183][183][208][207][183][183][183][183][183][208][207][183][183][183][183][183][208][207][183][183][183][183][183][208][146]   [144][194]AB[158]CD[144][221]"
  44. 660 PRINTA$;"[180] [146][172][162][191] [170][180] [146][191][162][191] [170][180] [146][188] [146][161] [170][180] [146][172][162][187] [170][146]   [144][194]EF[158]GH[144][194]"
  45. 670 PRINTA$;"[180] [146][172][162][191] [170][180] [146][188][162][146][190] [170][180] [161][191][146][161] [170][180] [161] [146][161] [170][146]   [144][194]IJ[158]KL[144][221]"
  46. 680 PRINTA$;"[180] [146][188][162][146][191] [170][180] [161] [146][161] [170][180] [161] [146][187] [170][180] [146][188][162][190] [170][146]   [144][194]MN[158]O[144] [146][221]"
  47. 690 PRINTA$;"[204][175][175][175][175][175][186][204][175][175][175][175][175][186][204][175][175][175][175][175][186][204][175][175][175][175][175][186][146][144]   [173][195][195][195][195][189]"
  48. 700 RETURN
  49. 1000 DATA   6, 255, 250,   1,   1,  65,  66,   67
  50. 1010 DATA  68,   1,   1,  69,  70,  71,  72,    1
  51. 1020 DATA   1,  73,  74,  75,  76,   1,   1,   77
  52. 1030 DATA  78,  79, 160,   1,   1,  77,  73,   67
  53. 1040 DATA  76,   1,   1,  69, 160,  74,  70,    1
  54. 1050 DATA   1,  75,  72,  79,  71,   1,   1,   66
  55. 1060 DATA  65,  78,  68,   1,   2,   1,   1,    4
  56. 1070 DATA   3,   4,   1,   4,   3,   3,   2,    3
  57. 1080 DATA   4,   1,   2,   2,   2,   3,   4,    1
  58. 1090 DATA   0,   0,   0,   0,   0,   0,   0,    0
  59. 1100 DATA   0,   0,   0,   0,   0,   0,   2,    0
  60. 1110 DATA   9,   0,  16,   0,  23,   0,   0,    0
  61. 1120 DATA   0,   0,   2,   5,   9,   5,  16,    5
  62. 1130 DATA  23,   5,   0,   0,   0,   0,   2,   10
  63. 1140 DATA   9,  10,  16,  10,  23,  10,   0,    0
  64. 1150 DATA   0,   0,   2,  15,   9,  15,  16,   15
  65. 1160 DATA  23,  15,   0,   0, 162,   0, 189,   79
  66. 1170 DATA 192, 157,   6, 192, 232, 224,  24,  208
  67. 1180 DATA 245, 169,   2, 141,  46, 192, 169,    1
  68. 1190 DATA 141,  47, 192, 169,  15, 141,  45,  192
  69. 1200 DATA  96, 174,  47, 192, 232, 224,  22,  208
  70. 1210 DATA   2, 162,   2, 142,  47, 192, 189,  101
  71. 1220 DATA 192, 141,  44, 192, 170, 173,  45,  192
  72. 1230 DATA  24, 125,  50, 192, 141,  43, 192,  170
  73. 1240 DATA 189, 255, 191, 141,  48, 192,  32,   90
  74. 1250 DATA 193,  32, 226, 194,  96, 169,   2,  141
  75. 1260 DATA  48, 195,  32, 212, 192, 206,  49,  192
  76. 1270 DATA 208, 248, 169,  20, 141,  48, 195,   96
  77. 1280 DATA 169,   2, 141,  40, 192, 141,  41,  192
  78. 1290 DATA 162,   1, 142,  42, 192, 174,  42,  192
  79. 1300 DATA 224,   5, 240,  35, 173,  45, 192,   24
  80. 1310 DATA 125,  50, 192, 141,  43, 192, 170,   32
  81. 1320 DATA  80, 193, 174,  42, 192, 232, 142,   42
  82. 1330 DATA 192, 173,  40, 192, 201,   1, 208,  221
  83. 1340 DATA 202, 142,  44, 192,  76, 226, 194,  169
  84. 1350 DATA   1, 141,  41, 192,  96, 189, 255,  191
  85. 1360 DATA  56, 237,  48, 192, 240,   1,  96,  173
  86. 1370 DATA  48, 192, 201,   1, 208,   1,  96,  169
  87. 1380 DATA 160, 157, 255, 191, 174,  45, 192,  173
  88. 1390 DATA  48, 192, 157, 255, 191, 173,  43,  192
  89. 1400 DATA 141,  45, 192,  24, 109,  43, 192,  170
  90. 1410 DATA 189, 121, 192, 141,  37, 192, 232,  189
  91. 1420 DATA 121, 192, 141,  36, 192,  32, 145,  193
  92. 1430 DATA 169,   1, 141,  40, 192,  96, 169,    0
  93. 1440 DATA 133, 251, 169,   4, 133, 252, 174,   36
  94. 1450 DATA 192, 240,   6,  32, 187, 193, 202,  208
  95. 1460 DATA 250, 174,  37, 192, 240,   6,  32,  219
  96. 1470 DATA 193, 202, 208, 250, 165, 251, 133,  253
  97. 1480 DATA 165, 252,  24, 105, 212, 133, 254,   96
  98. 1490 DATA 165, 251,  24, 105,  40, 133, 251,  133
  99. 1500 DATA 253, 144,   4, 230, 252, 230, 254,   96
  100. 1510 DATA 165, 251,  56, 233,  40, 133, 251,  133
  101. 1520 DATA 253, 176,   4, 198, 252, 198, 254,   96
  102. 1530 DATA 230, 251, 230, 253, 208,   4, 230,  252
  103. 1540 DATA 230, 254,  96, 165, 251, 208,   4,  198
  104. 1550 DATA 252, 198, 254, 198, 251, 198, 253,   96
  105. 1560 DATA 162,   5,  32, 230, 193, 160,   0,  200
  106. 1570 DATA 177, 253,  72, 177, 251, 136, 145,  251
  107. 1580 DATA 104, 145, 253, 200, 192,   7, 208,  239
  108. 1590 DATA 169, 160, 145, 251, 169,   0, 145,  253
  109. 1600 DATA  32, 187, 193, 202, 208, 223, 206,   37
  110. 1610 DATA 192,  32, 145, 193,  96, 162,   5,  160
  111. 1620 DATA   7, 136, 177, 253,  72, 177, 251,  200
  112. 1630 DATA 145, 251, 104, 145, 253, 136, 208,  241
  113. 1640 DATA 169, 160, 145, 251, 169,   0, 145,  253
  114. 1650 DATA  32, 187, 193, 202, 208, 225, 238,   37
  115. 1660 DATA 192,  32, 145, 193,  96, 162,   5,   32
  116. 1670 DATA 203, 193, 160,  40, 140,  38, 192,  160
  117. 1680 DATA   0, 140,  39, 192, 172,  38, 192,  177
  118. 1690 DATA 253,  72, 177, 251, 238,  38, 192,  172
  119. 1700 DATA  39, 192, 145, 251, 104, 145, 253,  238
  120. 1710 DATA  39, 192, 192,   6, 208, 230,  32,  187
  121. 1720 DATA 193, 202, 208, 214, 160,   0, 169,  160
  122. 1730 DATA 145, 251, 169,   0, 145, 253, 200,  192
  123. 1740 DATA   7, 208, 243, 206,  36, 192,  32,  145
  124. 1750 DATA 193,  96, 162,   4,  32, 187, 193,  202
  125. 1760 DATA 208, 250, 162,   5, 160,   0, 140,   38
  126. 1770 DATA 192, 160,  40, 140,  39, 192, 172,   38
  127. 1780 DATA 192, 177, 253,  72, 177, 251, 238,   38
  128. 1790 DATA 192, 172,  39, 192, 145, 251, 104,  145
  129. 1800 DATA 253, 238,  39, 192, 192,  46, 208,  230
  130. 1810 DATA  32, 203, 193, 202, 208, 214,  32,  187
  131. 1820 DATA 193, 160,   0, 169, 160, 145, 251,  169
  132. 1830 DATA   0, 145, 253, 200, 192,   7, 208,  243
  133. 1840 DATA 238,  36, 192,  32, 145, 193,  96,   72
  134. 1850 DATA 194,  32, 194, 141, 194, 243, 193,  173
  135. 1860 DATA  44, 192,  41,   1, 240,   4, 169,    6
  136. 1870 DATA 208,   2, 169,   8, 141,  50, 192,  173
  137. 1880 DATA  44, 192,  24, 109,  44, 192, 170,  189
  138. 1890 DATA 216, 194, 141,  11, 195, 232, 189,  216
  139. 1900 DATA 194, 141,  12, 195,  32, 145, 193,   32
  140. 1910 DATA 141, 194,  32,  45, 195, 224,   1,  208
  141. 1920 DATA 246, 142,  36, 192, 162,   0, 189,    6
  142. 1930 DATA 192,  56, 253,  55, 192, 208,  10,  232
  143. 1940 DATA 224,  23, 208, 242, 169,   1, 141,   46
  144. 1950 DATA 192,  96, 162,   2, 160,  20, 202,  224
  145. 1960 DATA   1, 208, 251, 136, 192,   1, 208,  246
  146. 1970 DATA 174,  50, 192, 202, 142,  50, 192,   96
  147.